home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_138_Titles < prev    next >
Text File  |  1998-02-04  |  10KB  |  99 lines
  1. ItemType: WIND
  2. Rect: 327,233,697,535
  3. Style: Window
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: TRUE
  8. MinSize: 370,150
  9. MaxSize: 370,1800
  10. Name: Titles
  11. WhiteColor: -8739,-8739,-8739
  12. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬Global titleList, selectedTitleNum, gWindowPositions¬global gIssuesListWindowID, gShowOnlyMyTitles, gMyTitleList, gCurrentPaneList¬¬---------------------¬-- This is window #25¬---------------------¬¬if objValue="Open" then ¬  -- Restore old window position¬  set cursor to watch¬  put OldWindowPosition(25) into windowRect¬  if windowRect = empty then centerWindow wdName¬  else set the rect of window id wdid to windowRect¬  ¬  -- Go to titles background, if necessary.¬  if the short name of this background <> "Title" then¬    lock screen¬    go cd 1 of bg "Title"¬  end if¬  -- Close any open issues windows¬  if gIssuesListWindowID is a number then¬    if there is a window id gIssuesListWindowID and gIssuesListWindowID <> wdID then¬      wsSend gIssuesListWindowID,0,"Close"¬      put empty into gIssuesListWindowID¬    end if¬  end if¬  ¬  -- Figure out which selection to start with¬  wsSet wdID,"11","Hilite",gShowOnlyMyTitles¬  wsSet wdID,"10","Hilite", not (gShowOnlyMyTitles)¬  ¬  put line selectedTitleNum of titleList into theTitle¬  put Capitalize(char 1 of (line selectedTitleNum of titleList)) into firstChar¬  ¬  if firstChar >= "A" and firstChar <= "Z" then put CharToNum(firstChar) - 63 into alphaSelectPos¬  else put 1 into alphaSelectPos¬  set alphaStrip_Selection of window id wdID to (alphaSelectPos & ",1")¬  ¬  if gShowOnlyMyTitles = true then¬    SetNewList gMyTitleList, alphaSelectPos, wdID, false¬    put find(gCurrentPaneList, theTitle, "Line", "Exact") into foundPos¬    if foundPos < 1 and the number of lines of gCurrentPaneList > 0 then put 1 into foundPos¬    set the properties of window id wdID to "Comictitles_Selection:" & (foundPos) & return & "Modify…_Disabled:" & (theTitle = empty) & return & "Remove_Disabled:" & (theTitle = empty) & return ¬  else¬    SetNewList TitleList, alphaSelectPos, wdID, false¬    set the properties of window id wdID to "Comictitles_Selection:" & (selectedTitleNum - (xlistStartPos of window id wdID) + 1) & return & "Modify…_Disabled:" & (theTitle = empty) & return & "Remove_Disabled:" & (theTitle = empty) & return ¬  end if¬  ¬  set typedTitle_text of window id wdID to comicTitles_SelectionText of window id wdID¬  set typedTitle_Selection of window id wdID to "0,200"¬  ¬  if there is a menuItem "Close" of menu "File" then¬    enable menuItem "Close" of menu "File"¬  end if¬  ¬else if objValue="Close" then ¬  -- save the window position¬  put "25" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 25 of gWindowPositions¬  if there is a menuItem "Close" of menu "File" then¬    disable menuItem "Close" of menu "File"¬  end if¬  ¬else if objValue="Suspend" then ¬  put frontWindow() into theFrontID¬  if wsGet(theFrontID,"0","HasCloseBox") <> "true" then¬    if there is a menuItem "Close" of menu "File" then¬      disable menuItem "Close" of menu "File"¬    end if¬  end if¬  ¬else if objValue="Resume" then ¬  if the short name of this background <> "Title" then ¬    lock screen¬    go cd 1 of bg "Title"¬  end if¬  if there is a menuItem "Close" of menu "File" then¬    enable menuItem "Close" of menu "File"¬  end if¬end if¬¬--end windowEvent
  13.  
  14. ItemType: PUSH
  15. Rect: 265,273,347,293
  16. AutoSize: FALSE
  17. Name: Modify…
  18. DefaultItem: TRUE
  19. Balloon: Click here to modify the title you’ve selected above.
  20. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global selectedTitle, titleList¬Global selectedTitleNum ¬¬set cursor to watch¬¬put comicTitles_SelectionText of window id wdID into listOfTitles¬put the number of lines of listOfTitles into numTitles¬¬repeat with x = 1 to numTitles¬  put line x of listOfTitles into selectedTitle¬  put find(titleList,selectedTitle,"Line","Exact") into whereFound¬  if whereFound > 0 then¬    put whereFound into selectedTitleNum¬    -- put (ComicTitles_Selection of window "Titles") + ((xListStartPos of window id wdID) - 1) into SelectedTitleNum¬    -- put line selectedTitleNum of titleList into selectedTitle¬    send ModifyATitle to cd btn "ModifyATitle" of cd 3¬  end if¬end repeat¬-- put (ComicTitles_Selection of window "Titles") + ((xListStartPos of window "Titles") - 1) into SelectedTitleNum¬--end mouseUp¬¬¬¬
  21.  
  22. ItemType: PUSH
  23. Rect: 10,273,100,293
  24. AutoSize: FALSE
  25. Name: Remove
  26. Balloon: Click here (or type Command-N) to add a new title to the ComicBase.
  27. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global selectedTitle, titleList, selectedTitleNum¬¬set cursor to watch¬¬if the short name of this background <> "Title" then¬  lock screen¬  go cd 1 of bg "Title"¬end if¬¬put line 1 of comicTitles_SelectionText of window id wdID into selectedTitle¬put find(titleList,selectedTitle,"Line","Exact") into whereFound¬if whereFound > 0 then¬  put whereFound into selectedTitleNum¬  send doDeleteTitle to cd 2¬end if¬--end mouseUp
  28.  
  29. ItemType: LIST
  30. Rect: 9,48,360,245
  31. TextFont: Geneva
  32. TextSize: 10
  33. AutoSize: FALSE
  34. GrowItem: TRUE
  35. Name: ComicTitles
  36. Logic: Single
  37. DoubleClickItem: 1
  38. Text: 
  39. Balloon: This is a list of all comics in the ComicBase. Click on a title (or type the first few letters of its name) to select it.
  40. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gShowOnlyMyTitles¬¬put comicTitles_selection of window id wdID into theSelection¬put ((comicTitles_TextOfSelection of window id WdID) = empty) into modifyDisabled¬put (xlistStartPos of window id wdID) + theSelection - 1 into indexPos¬¬set the properties of window id wdID to "TypedTitle_Text:" & objValue & return & "typedTitle_Selection:0,200" &  return & "Modify…_Disabled:" & modifyDisabled & return & "Remove_Disabled:" & modifyDisabled & return & "NextIssue_Text:" & line indexPos of gLastIssueList & return & "NextCost_Text:" & line indexPos of gLastIssueCoverPriceList & return & "NextPrice_Text:" & line indexPos of gLastIssueCoverPriceList & return¬--end mouseUp
  41.  
  42. ItemType: PUSH
  43. Rect: 161,272,251,292
  44. AutoSize: FALSE
  45. Name: New…  N
  46. Balloon: Click here (or type Command-N) to add a new title to the ComicBase.
  47. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global selectedTitle, selectedTitleNum¬Global theCreatedTitle, gNewName,gNewAbbreviation¬Global copyrightInfo, matureReaders, newPublisher, gDatesPublished¬¬if the short name of this background <> "Title" then¬  lock screen¬  go cd 1 of bg "Title"¬end if¬¬put empty into selectedTitle¬put empty into theCreatedTitle¬Get WindowScript("Comic Title","True", "True")¬if it <> empty then¬  if line 1 of it = "Save" then¬    set cursor to watch¬    lock screen¬    set lockmessages to true¬    put line 2 of it into gNewName¬    if oldName = empty then put gNewName into selectedTitle¬    put line 3 of it into newPublisher¬    if newPublisher = "Other…" then put line 4 of it into newPublisher¬    put line 5 of it into gNewAbbreviation¬    put line 6 of it into copyrightInfo¬    put line 7 of it into matureReaders¬    put line 8 of it into gDatesPublished¬    send SaveTitle to cd btn "SaveTitle" of cd 3¬    send openCard to this card -- To redraw screen & set color¬  end if¬end if¬¬--end mouseUp
  48.  
  49. ItemType: TEXT
  50. Rect: 14,28,44,41
  51. TextFont: Geneva
  52. TextSize: 10
  53. Name: Prompt
  54. WhiteColor: -8739,-8739,-8739
  55. Text: Title:
  56.  
  57. ItemType: TEXT
  58. Rect: 50,26,345,43
  59. TextFont: Geneva
  60. TextSize: 10
  61. Name: TypedTitle
  62. LockText: FALSE
  63. KeyFilter: SendTextNoArrows
  64.  
  65. ItemType: PICT
  66. Rect: 9,248,360,263
  67. AutoSize: FALSE
  68. Name: AlphaStrip
  69. Grid: 27,1
  70. Logic: Radio
  71. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gFindList¬global gShowOnlyMyTitles, gMyTitleList¬¬if gShowOnlyMyTitles = true then¬  SetNewList gMyTitleList, objValue, wdID, true¬else¬  SetNewList TitleList, objValue, wdID, true¬end if¬--end mouseUp
  72.  
  73. ItemType: LINE
  74. Rect: 10,248,359,249
  75. BlackColor: 4369,4369,4369
  76.  
  77. ItemType: LBL
  78. Rect: 14,8,46,21
  79. TextFont: Geneva
  80. TextSize: 10
  81. WhiteColor: -8739,-8739,-8739
  82. Text: Show:
  83.  
  84. ItemType: RAD
  85. Rect: 50,9,119,22
  86. TextFont: Geneva
  87. TextSize: 10
  88. WhiteColor: -8739,-8739,-8739
  89. Name: All Titles
  90. Hilite: TRUE
  91. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global selectedTitleNum, titleList¬global  gShowOnlyMyTitles¬¬set cursor to watch¬¬put false into gShowOnlyMyTitles¬put line selectedTitleNum of titleList into theTitle¬put Capitalize(char 1 of (line selectedTitleNum of titleList)) into firstChar¬¬if firstChar >= "A" and firstChar <= "Z" then put CharToNum(firstChar) - 63 into alphaSelectPos¬else put 1 into alphaSelectPos¬set alphaStrip_Selection of window id wdID to (alphaSelectPos & ",1")¬¬SetNewList TitleList, alphaSelectPos, wdID, false¬set the properties of window id wdID to "Comictitles_Selection:" & (selectedTitleNum - (xlistStartPos of window id wdID) + 1) & return & "Modify…_Disabled:" & (theTitle = empty) & return & "Remove_Disabled:" & (theTitle = empty) & return¬¬set typedTitle_text of window id wdID to comicTitles_SelectionText of window id wdID¬set typedTitle_Selection of window id wdID to "0,200"¬¬--end mouseUp
  92.  
  93. ItemType: RAD
  94. Rect: 130,9,224,22
  95. TextFont: Geneva
  96. TextSize: 10
  97. WhiteColor: -8739,-8739,-8739
  98. Name: Titles in Stock
  99. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global selectedTitleNum, titleList, gMyTitleList, gCurrentPaneList¬global gShowOnlyMyTitles¬¬set cursor to watch¬put true into gShowOnlyMyTitles¬¬send UpdateMyTitlesList to cd 2¬¬put line selectedTitleNum of titleList into theTitle¬put Capitalize(char 1 of theTitle) into firstChar¬¬if firstChar >= "A" and firstChar <= "Z" then put CharToNum(firstChar) - 63 into alphaSelectPos¬else put 1 into alphaSelectPos¬set alphaStrip_Selection of window id wdID to (alphaSelectPos & ",1")¬¬SetNewList gMyTitleList, alphaSelectPos, wdID, false¬put find(gCurrentPaneList, theTitle, "Line", "Exact") into foundPos¬if foundPos < 1 and the number of lines of gCurrentPaneList > 0 then put 1 into foundPos¬set the properties of window id wdID to "Comictitles_Selection:" & (foundPos) & return & "Modify…_Disabled:" & (theTitle = empty) & return & "Remove_Disabled:" & (theTitle = empty) & return¬¬set typedTitle_text of window id wdID to comicTitles_SelectionText of window id wdID¬set typedTitle_Selection of window id wdID to "0,200"¬¬¬--end mouseUp